home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / cross / APIC1908.lha / APIC / scripts / PICAsm.ced
Encoding:
Text File  |  1997-04-06  |  857 b   |  43 lines
  1. /* automtic assembling of Pic source code with CygnusEd
  2. */
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9. PARSE SOURCE com res called resolved ext host .        /* Get host */
  10. IF host="REXX" THEN                    /* From command line */
  11.     ADDRESS "rexx_ced"                /* Talk to default ced */
  12.  
  13.  
  14. OPTIONS RESULTS                        /* Enable results from commands */
  15. ARG windowType .                    /* How to show? */
  16.  
  17.  
  18. ADDRESS COMMAND "relabel ram: Ram_Disk"
  19.  
  20.  
  21. 'DM "assembling source..."'
  22.  
  23. 'Status NUMCHANGES'                    /* Get number of changes made to file */
  24. IF RESULT~=0 THEN                    /* Changes were made */
  25.     'Save'                        /* Save current file */
  26.  
  27.  
  28. 'Status FILENAME'                    /* Fet file name (with path) */
  29. FileName=RESULT
  30.  
  31. Comm="c:PICAsm" FileName                /* Set up command string */
  32.                             /* Change status bar again */
  33. ADDRESS COMMAND Comm                    /* do the command */    
  34. 'CEdToFront'                        /* Jump back to CEd's screen */
  35.  
  36.  
  37.  
  38. 'DM'                            /* Restore status line */
  39.  
  40.  
  41.  
  42. EXIT
  43.